home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latex Mode / latexMenu.tcl < prev    next >
Encoding:
Text File  |  1998-07-23  |  37.1 KB  |  1,571 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexMenu.tcl (called from latex.tcl)
  5. #
  6. # LaTeX menu definitions and key bindings
  7. #
  8. #############################################################################
  9. #
  10. # Author:  Tom Scavo <trscavo@syr.edu>, Vince Darley <darley@fas.harvard.edu>
  11. #
  12. #############################################################################
  13. #############################################################################
  14.  
  15. proc latexMenu.tcl {} {}
  16.  
  17. namespace eval TeX::sub {}
  18. namespace eval TeX::mp {}
  19.  
  20. # The highest level menu macro, to be called initially or whenever 
  21. # the LaTeX menu must be rebuilt (as in 'shadowtexSig' in latex.tcl,
  22. # or 'toggleLaTeXMenus' below): (simplified VMD July 97)
  23. proc buildLaTeXMenuQuietly {} {
  24.     global texMenu useShortLaTeXMenu useAMSLaTeX TeX::Menus
  25.     toggleAMSLaTeXmenus
  26.     TeX::sub::MathModes
  27.     
  28.     menu::buildProc texMenu buildLaTeXMenu
  29.     menu::buildSome texMenu
  30.     markMenuItem {LaTeX Utilities} {Short LaTeX Menu} $useShortLaTeXMenu
  31.     markMenuItem {LaTeX Utilities} {AMS-LaTeX} $useAMSLaTeX
  32. }
  33.  
  34. # Toggle the short menu flag and rebuild the LaTeX menu.  If the
  35. # latter operation fails, toggle the flag back to its original position.
  36. proc toggleLaTeXMenus {} {
  37.     toggleLaTeXMenuItem useShortLaTeXMenu
  38.     buildLaTeXMenuQuietly
  39. }
  40. # Toggle the AMS-LaTeX flag, reload the macros and menu, and rebuild 
  41. # the LaTeX menu.  If either of the latter two operations fail, toggle
  42. # the flag back to its original position.
  43. proc toggleAMSLaTeX {} {
  44.     global useAMSLaTeX
  45.     toggleLaTeXMenuItem useAMSLaTeX
  46.     toggleAMSLaTeXmenus
  47.     markMenuItem {LaTeX Utilities} {AMS-LaTeX} $useAMSLaTeX
  48.     menu::buildSome "Math Style" "Text Size" "Math Environments"
  49. }
  50.  
  51. proc toggleLaTeXMenuItem {flag} {
  52.     global $flag modifiedVars
  53.     set $flag [expr 1 - [set $flag]]
  54.     lappend modifiedVars $flag
  55. }
  56.  
  57. proc listToDummySubmenus {l} {
  58.     foreach i $l {
  59.     lappend ret [list Menu -n $i {}]
  60.     }
  61.     return $ret
  62. }
  63.  
  64. # Return a short menu or a long menu, depending on the value of
  65. # the global variable 'useShortLaTeXMenu':
  66. proc buildLaTeXMenu {} {
  67.     global useShortLaTeXMenu TeX::Menus texMenu
  68.     if {$useShortLaTeXMenu} {
  69.     return [list build [concat \
  70.       [listToDummySubmenus [set TeX::Menus(Top)]] \
  71.       [list "LaTeX Help"] \
  72.       {(-} \
  73.       [listToDummySubmenus [set TeX::Menus(Bottom)]] \
  74.       [listToDummySubmenus [list "Text Submenus" "Math Submenus"]] \
  75.       ] \
  76.       {TeX::mp::latex -M TeX -m} \
  77.       [concat [set TeX::Menus(Top)] [set TeX::Menus(Bottom)] \
  78.       [list "Text Submenus" "Math Submenus"]] \
  79.       $texMenu]
  80.     } else {
  81.     return [list build [concat \
  82.       [listToDummySubmenus [set TeX::Menus(Top)]] \
  83.       [list "LaTeX Help"] \
  84.       {(-} \
  85.       [listToDummySubmenus [set TeX::Menus(Bottom)]] \
  86.       {(-} \
  87.       [listToDummySubmenus [set TeX::Menus(TextSubMenus)]] \
  88.       {(-} \
  89.       [listToDummySubmenus [set TeX::Menus(MathSubMenus)]] \
  90.       ] \
  91.       {TeX::mp::latex -M TeX -m} \
  92.       [concat [set TeX::Menus(Top)] [set TeX::Menus(Bottom)] \
  93.       [set TeX::Menus(TextSubMenus)] [set TeX::Menus(MathSubMenus)]] \
  94.       $texMenu]
  95.     }
  96. } 
  97. menu::buildProc "Math Submenus" TeX::sub::Math
  98. menu::buildProc "Text Submenus" TeX::sub::Text
  99. menu::buildProc Typeset TeX::sub::Typeset
  100. menu::buildProc TypesetOtherFiles TeX::sub::TypesetOtherFiles
  101. proc TeX::sub::Math {} {
  102.     global TeX::Menus
  103.     return [list build \
  104.       [listToDummySubmenus [set TeX::Menus(MathSubMenus)]] \
  105.       {dummy -M TeX -m} \
  106.       [set TeX::Menus(MathSubMenus)] \
  107.       {Math Submenus}]
  108. }
  109. proc TeX::sub::Text {} {
  110.     global TeX::Menus
  111.     return [list build \
  112.       [listToDummySubmenus [set TeX::Menus(TextSubMenus)]] \
  113.       {dummy -M TeX -m} \
  114.       [set TeX::Menus(TextSubMenus)] \
  115.       {Text Submenus}]
  116. }
  117.  
  118. ensureset TeX::Menus(TextSubMenus) [list \
  119.   "Text Style" "Text Size" "Text Commands" "International" \
  120.   "Environments" "Boxes" "Miscellaneous"\
  121.   ]
  122.  
  123. ensureset TeX::Menus(Top) [list "Typeset" "Goto" "LaTeX Utilities"]
  124.  
  125. ensureset TeX::Menus(Bottom) [list "Documents" "Page Layout" \
  126.   "Sectioning" "Theorem"]
  127.  
  128. ensureset TeX::Menus(MathSubMenus) [list \
  129.   "Math Modes" "Math Style" "Math Environments" "Formulas" "Greek"  \
  130.   "Binary Operators" "Relations" "Arrows" "Dots" "Symbols" \
  131.   "Functions" "Large Operators" "Delimiters" "Math Accents" \
  132.   "Grouping" "Spacing" \
  133.   ]
  134.  
  135. proc TeX::mp::latex {menu item} {
  136.     switch $item {
  137.     {LaTeX Help}  {set func {global HOME; edit -r [file join $HOME Help "LaTeX Help"]}}
  138.     default {set func $item}
  139.     }
  140.     eval $func
  141. }
  142.  
  143. #############################################################################
  144. #
  145. # Submenu definitions
  146. #
  147. #############################################################################
  148.  
  149. # Return the "Typeset" submenu.  If the current document belongs
  150. # to a TeX fileset, display the base filename throughout.
  151. #
  152. proc TeX::sub::Typeset {{currentWin ""}} {
  153.     global mode TeXmodeVars
  154.     if {$currentWin == ""} {set currentWin [win::Current]}
  155.     if {$currentWin == ""} {
  156.     return [TeX::sub::MinimalTypeset]
  157.     } elseif { $mode == "TeX" } {
  158.     set currentDoc [file tail $currentWin]
  159.     # Process an untitled window:
  160.     if { [set num [winUntitled]] } {
  161.         if { $num > 1 } { set currentDoc "Untitled$num" }
  162.         # fall through
  163.     }
  164.     } else {
  165.     return [TeX::sub::MinimalTypeset]
  166.     }
  167.     set docBasename [file rootname $currentDoc]
  168.     set projBasename $docBasename
  169.     set currentProj [isWindowInFileset $currentWin "tex"]
  170.     if {    $currentProj !=    "" } {
  171.     set currentDoc [file tail [texFilesetBaseName $currentProj]]
  172.     set docBasename [file rootname $currentDoc]
  173.     }
  174.     # Determine which menu items are dimmed:
  175.     foreach ext {DVI PS AUX IDX GLO Selection} { set prefix$ext "" }
  176.     set ma [list \
  177.       {Menu -n "Format" {}} \
  178.       "(-"]
  179.     if $TeXmodeVars(runTeXInBack) {
  180.     lappend ma [list /TBack Typeset $currentDoc] \
  181.       [list /T<U<ITypeset $currentDoc]
  182.     } else {
  183.     lappend ma [list /TTypeset $currentDoc] \
  184.       [list /T<U<IBack Typeset $currentDoc]
  185.     }
  186.     lappend ma \
  187.       [list <U<O/V${prefixDVI}View "$docBasename\.dvi"] \
  188.       [list <U<O/P${prefixDVI}Print "$docBasename\.dvi"] \
  189.       "(-" \
  190.       {<U<O/TTypeset Clipboard} \
  191.       [list ${prefixSelection}<U<I<O/TTypeset Selection] \
  192.       "(-" \
  193.       [list <S${prefixPS}Open "$docBasename\.ps"] \
  194.       [list <S${prefixDVI}dvips "$docBasename\.dvi"] \
  195.       [list ${prefixPS}View "$docBasename\.ps"] \
  196.       [list ${prefixPS}Print "$docBasename\.ps"] \
  197.       "(-" \
  198.       [list <SOpen "$docBasename\.bbl"] \
  199.       [list <S${prefixAUX}bibtex "$docBasename\.aux"] \
  200.       [list <E<SOpen "$docBasename\.ind"] \
  201.       [list <S${prefixIDX}makeindex "$docBasename\.idx"] \
  202.       [list <E<SOpen "$docBasename\.glo"] \
  203.       [list <S${prefixGLO}makeglossary "$docBasename\.glo"] \
  204.       "(-" \
  205.       {Menu -n "Other Files" {}} \
  206.       "(-" \
  207.       {Remove Auxiliary Files…} \
  208.       {Remove Temporary Files}
  209.     return [list build $ma {TeX::mp::typesetmenu -M TeX -m} \
  210.       {Format TypesetOtherFiles}]
  211. }
  212.  
  213. proc TeX::sub::MinimalTypeset {} {
  214.     set ma [list \
  215.       [list /TTypeset…] \
  216.       "(-" \
  217.       {<U<O/TTypeset Clipboard} \
  218.       {Typeset Selection} \
  219.       ]
  220.     return [list build $ma {TeX::mp::typesetmenu -M TeX -m}]
  221. }
  222. # Return a submenu of LaTeX formats:
  223.  
  224. set "menu::proc(Format)" TeX::Format
  225. set "menu::otherflags(Format)" {-M TeX -m}
  226. set "menu::items(Format)" {
  227.     "LaTeX"
  228.     "Big-LaTeX"
  229.     "AMS-TeX"
  230.     "Plain TeX"
  231. }
  232.  
  233. # Return a submenu of LaTeX auxiliary files with basename $basename1,
  234. # except for the .aux file whose primary basename is $basename2.
  235. #
  236.  
  237. proc TeX::sub::TypesetOtherFiles {} {
  238.     set currentWin [win::Current]
  239.     set currentDoc [file tail $currentWin]
  240.     set docBasename [file rootname $currentDoc]
  241.     set projBasename $docBasename
  242.     set currentProj [isWindowInFileset $currentWin "tex"]
  243.     if {$currentProj !=    ""} {
  244.     set currentDoc [file tail [texFilesetBaseName $currentProj]]
  245.     set docBasename [file rootname $currentDoc]
  246.     }
  247.     set ma [list \
  248.       [list Open "$docBasename\.log"] \
  249.       [concat <SOpen "$docBasename\.aux "] \
  250.       [concat <SOpen "$projBasename\.aux"] \
  251.       [list Open "$docBasename\.toc"] \
  252.       [list Open "$docBasename\.lof"] \
  253.       [list Open "$docBasename\.lot"] \
  254.       [list Open "$docBasename\.idx"] \
  255.       [list Open "$docBasename\.bbl"] \
  256.       "(-" \
  257.       [list Open "$docBasename\.blg"] \
  258.       [list Open "$docBasename\.ilg"] \
  259.       "(-" \
  260.       {<U<O/OOpen Any TeX File…} \
  261.       ]
  262.     return [list build $ma {TeX::mp::typesetmenu -M TeX -m} \
  263.       "" {Other Files}]
  264.     ]
  265. }
  266. proc TeX::mp::typesetmenu {submenu item} {
  267.     switch -regexp $item {
  268.     {Typeset Selection}  {set func "typesetSelection"}
  269.     {Typeset Clipboard}  {set func "typesetClipboard"}
  270.     "Back\ Typeset.*"    {set func "typeset 1"}
  271.     "Typeset.*"  {set func "typeset"}
  272.     "View.*\.dvi$"  {set func {doTypesetCommand view DVI}}
  273.     "Print.*\.dvi$"  {set func {doTypesetCommand print DVI}}
  274.     "dvips.*\.dvi$"  {set func {doTypesetCommand dvips DVI}}
  275.     "View.*\.ps$"  {set func {doTypesetCommand view PS}}
  276.     "Print.*\.ps$"  {set func {doTypesetCommand print PS}}
  277.     "bibtex.*"  {set func {doTypesetCommand bibtex AUX}}
  278.     "makeindex.*"  {set func {doTypesetCommand makeindex IDX}}
  279.     "makeglossary.*"  {set func {doTypesetCommand makeindex GLO}}
  280.     "Open.*\.ps$"  {set func {doTypesetCommand open PS}}
  281.     "Open.*\.bbl$"  {set func {doTypesetCommand open BBL}}
  282.     "Open.*\.ind$"  {set func {doTypesetCommand open IND}}
  283.     "Open.*\.log$"  {set func {doTypesetCommand open LOG}}
  284.     "Open.*\.aux$"  {set func {doTypesetCommand open AUX 1}}
  285.     "Open.*\.aux $"  {set func {doTypesetCommand open AUX}}
  286.     "Open.*\.toc$"  {set func {doTypesetCommand open TOC}}
  287.     "Open.*\.lof$"  {set func {doTypesetCommand open LOF}}
  288.     "Open.*\.lot$"  {set func {doTypesetCommand open LOT}}
  289.     "Open.*\.idx$"  {set func {doTypesetCommand open IDX}}
  290.     "Open.*\.blg$"  {set func {doTypesetCommand open BLG}}
  291.     "Open.*\.ilg$"  {set func {doTypesetCommand open ILG}}
  292.     "Open.*\.glo$"  {set func {doTypesetCommand open GLO}}
  293.     {Open Any TeX File}  {set func "openAnyTeXFile"}
  294.     {Remove Auxiliary Files}  {set func "removeAuxiliaryFiles"}
  295.     {Remove Temporary Files}  {set func "removeTemporaryFiles"}
  296.     default {set func $item}
  297.     }
  298.     eval $func
  299. }
  300.  
  301. # Return the "Goto" submenu:
  302. set menu::proc(Goto) TeX::mp::goto
  303. set menu::otherflags(Goto) {-M TeX -m}
  304. set menu::items(Goto) {
  305.     "<U/SLaTeX"
  306.     "BibTeX"
  307.     "MakeIndex"
  308.     "(-"
  309.     {Next Template Stop}
  310.     {Prev Template Stop}
  311.     "(-"
  312.     {Next Command}
  313.     {Prev Command}
  314.     {Next Command Select}
  315.     {Prev Command Select}
  316.     {Next Command Select With Args}
  317.     {Prev Command Select With Args}
  318.     "(-"
  319.     {Next Environment}
  320.     {Prev Environment}
  321.     {Next Environment Select}
  322.     {Prev Environment Select}
  323.     "(-"
  324.     {Next Section}
  325.     {Prev Section}
  326.     {Next Section Select}
  327.     {Prev Section Select}
  328.     {Next Subsection}
  329.     {Prev Subsection}
  330.     {Next Subsection Select}
  331.     {Prev Subsection Select}
  332. }
  333.  
  334. proc TeX::mp::goto {submenu item} {
  335.     switch $item {
  336.     "LaTeX"  {set func "texApp TeX"}
  337.     "BibTeX" - "MakeIndex" {set func "texApp $item"}
  338.     {Next Template Stop}  {set func "ring::+"}
  339.     {Prev Template Stop}  {set func "ring::-"}
  340.     {Next Command}  {set func "nextCommand"}
  341.     {Prev Command}  {set func "prevCommand"}
  342.     {Next Command Select}  {set func "nextCommandSelect"}
  343.     {Prev Command Select}  {set func "prevCommandSelect"}
  344.     {Next Command Select With Args}  {set func "nextCommandSelectWithArgs"}
  345.     {Prev Command Select With Args}  {set func "prevCommandSelectWithArgs"}
  346.     {Next Environment}  {set func "nextEnvironment"}
  347.     {Prev Environment}  {set func "prevEnvironment"}
  348.     {Next Environment Select}  {set func "nextEnvironmentSelect"}
  349.     {Prev Environment Select}  {set func "prevEnvironmentSelect"}
  350.     {Next Section}  {set func "nextSection"}
  351.     {Prev Section}  {set func "prevSection"}
  352.     {Next Section Select}  {set func "nextSectionSelect"}
  353.     {Prev Section Select}  {set func "prevSectionSelect"}
  354.     {Next Subsection}  {set func "nextSubsection"}
  355.     {Prev Subsection}  {set func "prevSubsection"}
  356.     {Next Subsection Select}  {set func "nextSubsectionSelect"}
  357.     {Prev Subsection Select}  {set func "prevSubsectionSelect"}
  358.     default {set func $item}
  359.     }
  360.     eval $func
  361. }
  362.  
  363. # Return the "LaTeX Utilities" submenu:
  364.  
  365. set "menu::proc(LaTeX Utilities)" TeX::mp::latexUtils
  366. set "menu::otherflags(LaTeX Utilities)" {-M TeX -m}
  367. set "menu::items(LaTeX Utilities)" {
  368.     {Delete Template Stops}
  369.     {Delete Comments}
  370.     "(-"
  371.     {Convert Quotes}
  372.     {Convert Dollar Signs}
  373.     "(-"
  374.     {Short LaTeX Menu}
  375.     {AMS-LaTeX}
  376. }
  377. #        {<U<O/CChoose Command…}
  378. #        "(-"
  379.  
  380. proc TeX::mp::latexUtils {submenu item} {
  381.     switch $item {
  382.     {Choose Command}  {set func {chooseCommand [getLaTeXMenu]}}
  383.     {Insert Reference}  {set func "insertReference"}
  384.     {Delete Template Stops}  {set func "ring::clear"}
  385.     {Delete Comments}  {set func "deleteComments"}
  386.     {Convert Quotes}  {set func "convertQuotes"}
  387.     {Convert Dollar Signs}  {set func "convertDollarSigns"}
  388.     {Short LaTeX Menu}  {set func "toggleLaTeXMenus"}
  389.     {AMS-LaTeX}  {set func "toggleAMSLaTeX"}
  390.     default {set func "TeX::[join $item {}]"}
  391.     }
  392.     eval $func
  393. }
  394.  
  395. # Return the "Documents" submenu:
  396. set "menu::proc(Documents)" TeX::mp::documents
  397. set "menu::otherflags(Documents)" {-M TeX -m}
  398. set "menu::items(Documents)" [list \
  399.   {<U<O/NNew Document…} \
  400.   {Menu -n "Insert Document" {}} \
  401.   "(-" \
  402.   "options…" \
  403.   "<B<I/Uusepackage" \
  404.   {Menu -n "Packages" {}} \
  405.   "(-" \
  406.   "filecontents…" \
  407.   {filecontents All} \
  408.   "(-" \
  409.   {Rebuild Documents Submenu} \
  410.   ]
  411. set menu::which_subs(Documents) [list "Insert Document" "Packages"]
  412. menu::buildProc Packages TeX::sub::Packages
  413.  
  414. set "menu::proc(Insert Document)" TeX::mp::documents
  415. set "menu::otherflags(Insert Document)" {-M TeX -m}
  416. set "menu::items(Insert Document)" {
  417.     "article"
  418.     "report"
  419.     "book"
  420.     "letter"
  421.     "slides"
  422.     "other…"
  423. }
  424.  
  425.  
  426. proc TeX::mp::documents {submenu item} {
  427.     switch $item {
  428.     {New Document}  {set func "newLaTeXDocument"}
  429.     {article}  {set func "articleDocumentclass"}
  430.     {report}  {set func "reportDocumentclass"}
  431.     {book}  {set func "bookDocumentclass"}
  432.     {letter}  {set func "letterDocumentclass"}
  433.     {slides}  {set func "slidesDocumentclass"}
  434.     {other}  {set func "otherDocumentclass"}
  435.     {usepackage} {insertPackage ""; return}
  436.     {filecontents All} {set func "filecontentsAll"}
  437.     {Rebuild Documents Submenu}  {
  438.         global packagesSubmenuItems
  439.         set packagesSubmenuItems ""
  440.         message "Rebuilding the Documents submenu…"
  441.         menu::buildSome Documents
  442.         message ""
  443.         return
  444.     }
  445.     default {set func $item}
  446.     }
  447.     eval $func
  448. }
  449. proc TeX::sub::Packages {} {
  450.     global TeXmodeVars
  451.     if { $TeXmodeVars(buildPkgsSubmenu) } {
  452.     global packagesSubmenuItems
  453.     if { ![info exists packagesSubmenuItems] || $packagesSubmenuItems == "" } {
  454.         global latexPackages
  455.         set folders [buildTeXSearchPath 0]
  456.         set packagesSubmenuItems \
  457.           [menu::buildHierarchy $folders "Packages" TeX::mp::package latexPackages ".sty"]
  458.     }
  459.     return $packagesSubmenuItems
  460.     } else {
  461.     catch {unset packagesSubmenuItems}
  462.     return ""
  463.     }
  464. }
  465. proc TeX::mp::package {submenu pkgName} {
  466.     global latexPackages
  467.     # See latexMacros.tcl for definition of 'insertPackage':
  468.     insertPackage [file tail [file rootname $latexPackages([file join $submenu $pkgName])]]
  469. }
  470.  
  471. # Return the "Page Layout" submenu:
  472.  
  473. set "menu::otherflags(Page Layout)" {-M TeX -m}
  474. set "menu::items(Page Layout)"  {
  475.     "maketitle"
  476.     "(-"
  477.     "abstract"
  478.     "titlepage"
  479.     "(-"
  480.     "pagestyle…"
  481.     "thispagestyle…"
  482.     "pagenumbering…"
  483.     "(-"
  484.     "twocolumn"
  485.     "onecolumn"
  486. }
  487.  
  488.  
  489. # Return the "Sectioning" submenu:
  490.  
  491. set menu::proc(Sectioning) TeX::mp::sectioning
  492. set menu::otherflags(Sectioning) {-M TeX -m}
  493.  
  494. # need to integrate these two
  495. set menu::items(Sectioning) {
  496.     "<Spart"
  497.     "<S<Upart*"
  498.     "<Spart with label"
  499.     "<E<Schapter"
  500.     "<S<Uchapter*"
  501.     "<Schapter with label"
  502.     "<E<Ssection"
  503.     "<S<Usection*"
  504.     "<Ssection with label"
  505.     "<E<Ssubsection"
  506.     "<S<Usubsection*"
  507.     "<Ssubsection with label"
  508.     "<E<Ssubsubsection"
  509.     "<S<Usubsubsection*"
  510.     "<Ssubsubsection with label"
  511.     "<E<Sparagraph"
  512.     "<S<Uparagraph*"
  513.     "<Sparagraph with label"
  514.     "<E<Ssubparagraph"
  515.     "<S<Usubparagraph*"
  516.     "<Ssubparagraph with label"
  517.     "(-"
  518.     "appendix"
  519. }
  520.  
  521. proc TeX::mp::sectioning {submenu item} {
  522.     if [regexp (part|chapter|section|paragraph) $item] {
  523.     eval sectioning $item
  524.     } else {
  525.     eval $item
  526.     }
  527. }
  528. proc TeX::mp::sectioning {submenu item} {
  529.     if {$item == "appendix"}  {
  530.     appendix
  531.     } else {
  532.     switch $item {
  533.         {part with label}  {
  534.         set secName "part"
  535.         set secLabel "part."
  536.         }
  537.         {chapter with label}  {
  538.         set secName "chapter"
  539.         set secLabel "chap."
  540.         }
  541.         {section with label}  {
  542.         set secName "section"
  543.         set secLabel "sec."
  544.         }
  545.         {subsection with label}  {
  546.         set secName "subsection"
  547.         set secLabel "subsec."
  548.         }
  549.         {subsubsection with label}  {
  550.         set secName "subsubsection"
  551.         set secLabel "subsubsec."
  552.         }
  553.         {paragraph with label}  {
  554.         set secName "paragraph"
  555.         set secLabel "par."
  556.         }
  557.         {subparagraph with label}  {
  558.         set secName "subparagraph"
  559.         set secLabel "subpar."
  560.         }
  561.         default {
  562.         set secName  $item
  563.         set secLabel ""
  564.         }
  565.     }
  566.     append leftWrap [openingCarriageReturn] \
  567.       "\\${secName}\{"
  568.     if {$secLabel == ""} {
  569.         append rightWrap "\}\r"
  570.     } else {
  571.         append rightWrap "\}\\label\{" $secLabel "••\}\r"
  572.     }
  573.     #if [regexp (part|chapter) $item] {
  574.     #    append rightWrap "\\thispagestyle{empty}\r"
  575.     #}
  576.     append rightWrap "••" [closingCarriageReturn]
  577.     if {$secLabel == ""} {
  578.         if [elec::Wrap $leftWrap $rightWrap] {
  579.         message "sectioning done" 
  580.         } else { 
  581.         message "enter the $secName" 
  582.         }
  583.     } else {
  584.         if [elec::Wrap $leftWrap $rightWrap] {
  585.         message "enter the label" 
  586.         } else { 
  587.         message "enter the $secName, press <tab>, enter the label" 
  588.         }
  589.     }
  590.     }
  591. }
  592.  
  593. # Return the "Text Style" submenu:
  594. set "menu::otherflags(Text Style)" {-M TeX -m}
  595. set "menu::items(Text Style)"  {
  596.     "<S<B<I/Eemph"
  597.     "<S<U<B<I/Eem"
  598.     "<B<O/Uunderline"
  599.     "(-"
  600.     "<Supshape"
  601.     "<Stextup"
  602.     "<E<S<B<I/Itextit"
  603.     "<S<U<B<I/Iitshape"
  604.     "<E<S<B<I/Stextsl"
  605.     "<S<U<B<I/Sslshape"
  606.     "<E<S<B<I/Htextsc"
  607.     "<S<U<B<I/Hscshape"
  608.     "(-"
  609.     "<Smdseries"
  610.     "<Stextmd"
  611.     "<E<S<B<I/Btextbf"
  612.     "<S<U<B<I/Bbfseries"
  613.     "(-"
  614.     "<S<B<I/Rtextrm"
  615.     "<S<U<B<I/Rrmfamily"
  616.     "<E<S<B<I/Wtextsf"
  617.     "<S<U<B<I/Wsffamily"
  618.     "<E<S<B<I/Ytexttt"
  619.     "<S<U<B<I/Yttfamily"
  620.     "(-"
  621.     "<Snormalfont"
  622.     "<Stextnormal"
  623. }
  624.  
  625.  
  626. # Return the "Text Size" submenu:
  627. proc TeX::mp::textSize {menu item} {
  628.     doTextSize $item
  629. }
  630.  
  631. proc TeX::mp::textCommands {menu item} {
  632.     insertObject "\\${item}"
  633. }
  634. set "menu::proc(Text Commands)" TeX::mp::textCommands
  635. set "menu::otherflags(Text Commands)" {-M TeX -m}
  636. set "menu::items(Text Commands)" {
  637.     "textsuperscript"
  638.     "textcircled"
  639.     "(-"
  640.     "textcompwordmark"
  641.     "textvisiblespace"
  642.     "(-"
  643.     "!—textemdash"
  644.     "!–textendash"
  645.     "!¡textexclamdown"
  646.     "!¿textquestiondown"
  647.     "!“textquotedblleft"
  648.     "!”textquotedblright"
  649.     "!‘textquoteleft"
  650.     "!’textquoteright"
  651.     "(-"
  652.     "textbullet"
  653.     "textperiodcentered"
  654.     "(-"
  655.     "textbackslash"
  656.     "textbar"
  657.     "textless"
  658.     "textgreater"
  659.     "(-"
  660.     "textasciicircum"
  661.     "textasciitilde"
  662.     "(-"
  663.     "textregistered"
  664.     "texttrademark"
  665. }
  666.  
  667. # Return the "International" submenu:
  668. set menu::proc(International) TeX::mp::internat
  669. set menu::otherflags(International) {-M TeX -m}
  670. set menu::items(International) {
  671.     {ò}
  672.     {ó}
  673.     {ô}
  674.     {ö}
  675.     {õ}
  676.     "(-"
  677.     {ç}
  678.     {œ}
  679.     {æ}
  680.     {å}
  681.     {ø}
  682.     "(-"
  683.     {Ç}
  684.     {Œ}
  685.     {Æ}
  686.     {Å}
  687.     {Ø}
  688.     "(-"
  689.     ss
  690.     SS
  691.     "(-"
  692.     {¿}
  693.     {¡}
  694. }
  695. proc TeX::mp::internat {menu item} {
  696.     $item
  697. }
  698.  
  699. # Return the "Environments" submenu:
  700.  
  701. set menu::proc(Environments) TeX::mp::envs
  702. set menu::otherflags(Environments) {-M TeX -m}
  703. set menu::items(Environments) {
  704.     "<I/kitemize…"
  705.     "<U<I/kenumerate…"
  706.     "<B<I/kdescription…"
  707.     "thebibliography…"
  708.     "(-"
  709.     "<I/lslide"
  710.     "<U<I/loverlay"
  711.     "<B<I/lnote"
  712.     "(-"
  713.     "<I/mfigure"
  714.     "<U<I/mtable"
  715.     "<B<I/mtabular…"
  716.     "(-"
  717.     "<I/nverbatim"
  718.     "<U<I/nquote"
  719.     "<B<I/nquotation"
  720.     "verse"
  721.     "(-"
  722.     "<I/ocenter"
  723.     "<U<I/oflushleft"
  724.     "<B<I/oflushright"
  725.     "(-"
  726.     {<U<O/EChoose Environment…}
  727. }
  728. proc TeX::mp::envs {submenu item} {
  729.     switch $item {
  730.     {Choose Environment}  {set func chooseEnvironment}
  731.     default {set func $item}
  732.     }
  733.     eval $func
  734. }
  735.  
  736. # Return the "Boxes" submenu:
  737.  
  738. set "menu::otherflags(Boxes)" {-M TeX -m}
  739. set "menu::items(Boxes)"  {
  740.     "<B<I/Mmbox"
  741.     "makebox"
  742.     "fbox"
  743.     "framebox"
  744.     "(-"
  745.     "newsavebox"
  746.     "sbox"
  747.     "savebox"
  748.     "usebox"
  749.     "(-"
  750.     "raisebox"
  751.     "(-"
  752.     "parbox"
  753.     "minipage"
  754.     "(-"
  755.     "rule"
  756. }
  757.  
  758. # Return the "Miscellaneous" submenu:
  759. set menu::proc(Miscellaneous) TeX::mp::misc
  760. set menu::otherflags(Miscellaneous) {-M TeX -m}
  761. set menu::items(Miscellaneous) {
  762.     "<B<I/Vverb"
  763.     "<B<I/Ffootnote"
  764.     {<B<I/Nmarginal note}
  765.     "(-"
  766.     "<B<I/Llabel"
  767.     "<B<I/Xref"
  768.     "eqref"
  769.     "<B<I/Ppageref"
  770.     "<B<I/Ccite"
  771.     "<U<B<I/Cnocite"
  772.     "(-"
  773.     "<B<I/Jitem"
  774.     "(-"
  775.     "<B<I/'quotes"
  776.     {<U<B<I/'double quotes}
  777.     "(-"
  778.     {TeX logo}
  779.     {LaTeX logo}
  780.     {LaTeX2e logo}
  781.     "date"
  782.     "(-"
  783.     "!†dag"
  784.     "ddag"
  785.     {!§section mark}
  786.     {!¶paragraph mark}
  787.     "!©copyright"
  788.     "!£pounds"
  789. }
  790. proc TeX::mp::misc {submenu item} {
  791.     switch $item {
  792.     {marginal note}  {set func "marginalNote"}
  793.     "item" {set func "insertItem"}
  794.     "label" {set func "insertLabel"}
  795.     {double quotes}  {set func "dblQuotes"}
  796.     {TeX logo}  {set func "texLogo"}
  797.     {LaTeX logo}  {set func "latexLogo"}
  798.     {LaTeX2e logo}  {set func "latex2eLogo"}
  799.     "date" {set func "today"}
  800.     {section mark}  {set func "sectionMark"}
  801.     {paragraph mark}  {set func "paragraphMark"}
  802.     default {set func $item}
  803.     }
  804.     eval $func
  805. }
  806.  
  807. # Return a "Math Modes" submenu (called below and in latexKeys.tcl):
  808. set "menu::proc(Math Modes)" TeX::mp::mathModes
  809. set "menu::otherflags(Math Modes)" {-M TeX -m}
  810. proc TeX::sub::MathModes {} {
  811.     global TeXmodeVars menu::items
  812.     if {$TeXmodeVars(useDollarSigns)} {
  813.     Bind '4' <zc> texMath "TeX"
  814.     Bind '4' <zoc> texDisplaymath "TeX"
  815.     set "menu::items(Math Modes)" {
  816.         {<B<O/MTeX math}
  817.         {<B<I<O/MTeX displaymath}
  818.         "(-"
  819.         {LaTeX math}
  820.         {LaTeX displaymath}
  821.     }
  822.     } else {
  823.     Bind '4' <zc> latexMath "TeX"
  824.     Bind '4' <zoc> latexDisplaymath "TeX"
  825.     set "menu::items(Math Modes)" {
  826.         {TeX math}
  827.         {TeX displaymath}
  828.         "(-"
  829.         {<B<O/MLaTeX math}
  830.         {<B<I<O/MLaTeX displaymath}
  831.     }
  832.     }
  833. }
  834. proc TeX::mp::mathModes {submenu item} {
  835.     switch $item {
  836.     {TeX math}  {set func "texMath"}
  837.     {TeX displaymath}  {set func "texDisplaymath"}
  838.     {LaTeX math}  {set func "latexMath"}
  839.     {LaTeX displaymath}  {set func "latexDisplaymath"}
  840.     default {set func $item}
  841.     }
  842.     eval $func
  843. }
  844.  
  845. proc TeX::mp::mathStyle {submenu item} {
  846.     switch $item {
  847.     mathbb {doUppercaseMathStyle mathbb "math blackboard bold"}
  848.     mathfrak {doMathStyle mathfrak "math fraktur"}
  849.     mathit {doMathStyle mathit "math italic"}
  850.     mathrm {doMathStyle mathrm "math roman"}
  851.     mathbf {doMathStyle mathbf "math bold"}
  852.     mathsf {doMathStyle mathsf "math sans serif"}
  853.     mathtt {doMathStyle mathtt "math typewriter"}
  854.     mathcal {doUppercaseMathStyle mathcal "math calligraphic"}
  855.     displaystyle {doMathStyle displaystyle "display style"}
  856.     textstyle {doMathStyle textstyle "text style"}
  857.     scriptstyle {doMathStyle scriptstyle "script style"}
  858.     scriptscriptstyle {doMathStyle scriptscriptstyle "scriptscript style"}
  859.     }
  860. }
  861.  
  862. # Return the "Math Style" submenu:
  863. set "menu::proc(Math Style)" TeX::mp::mathStyle
  864. set "menu::otherflags(Math Style)" {-M TeX -m}
  865. set "menu::proc(Text Size)" TeX::mp::textSize
  866. set "menu::otherflags(Text Size)" {-M TeX -m}
  867. proc toggleAMSLaTeXmenus {} {
  868.     global useAMSLaTeX menu::items
  869.     if { $useAMSLaTeX } {
  870.     set "menu::items(Math Style)" {
  871.         "<B<I<O/Imathit"
  872.         "<B<I<O/Rmathrm"
  873.         "<B<I<O/Bmathbf"
  874.         "<B<I<O/Wmathsf"
  875.         "<B<I<O/Ymathtt"
  876.         "<B<I<O/Cmathcal"
  877.         "(-"
  878.         "<B<I<O/Zmathbb"
  879.         "mathfrak"
  880.         "(-"
  881.         "<B<I<O/Ddisplaystyle"
  882.         "<B<I<O/Ttextstyle"
  883.         "<B<I<O/Sscriptstyle"
  884.         "scriptscriptstyle"
  885.     }
  886.     set "menu::items(Text Size)" {
  887.         "<B<I/1Tiny"
  888.         "<B<I/2tiny"
  889.         "<B<I/3SMALL"
  890.         "<B<I/4Small"
  891.         "<B<I/5small"
  892.         "normalsize"
  893.         "<B<I/6large"
  894.         "<B<I/7Large"
  895.         "<B<I/8LARGE"
  896.         "<B<I/9huge"
  897.         "<B<I/0Huge"
  898.     }
  899.     set "menu::items(Math Environments)" {
  900.         "<I/imath"
  901.         "(-"
  902.         "<U<I/idisplaymath"
  903.         "<B<I/iequation"
  904.         "(-"
  905.         "<B<I/jalign…"
  906.         "<U<I/jalign*…"
  907.         "split"
  908.         "gather"
  909.         "multline"
  910.         "(-"
  911.         "<I/jarray…"
  912.         "(-"
  913.         {<U<O/EChoose Environment…}
  914.     }
  915.     } else {
  916.     set "menu::items(Math Style)" {
  917.         "<B<I<O/Imathit"
  918.         "<B<I<O/Rmathrm"
  919.         "<B<I<O/Bmathbf"
  920.         "<B<I<O/Wmathsf"
  921.         "<B<I<O/Ymathtt"
  922.         "<B<I<O/Cmathcal"
  923.         "(-"
  924.         "<B<I<O/Ddisplaystyle"
  925.         "<B<I<O/Ttextstyle"
  926.         "<B<I<O/Sscriptstyle"
  927.         "scriptscriptstyle"
  928.     }
  929.     set "menu::items(Text Size)" {
  930.         "<B<I/1tiny"
  931.         "<B<I/2scriptsize"
  932.         "<B<I/3footnotesize"
  933.         "<B<I/4small"
  934.         "<B<I/5normalsize"
  935.         "<B<I/6large"
  936.         "<B<I/7Large"
  937.         "<B<I/8LARGE"
  938.         "<B<I/9huge"
  939.         "<B<I/0Huge"
  940.     }
  941.     set "menu::items(Math Environments)" {
  942.         "<I/imath"
  943.         "(-"
  944.         "<U<I/idisplaymath"
  945.         "<B<I/iequation"
  946.         "(-"
  947.         "<B<I/jeqnarray…"
  948.         "<U<I/jeqnarray*…"
  949.         "(-"
  950.         "<I/jarray…"
  951.         "(-"
  952.         {<U<O/EChoose Environment…}
  953.     }
  954.     }
  955. }
  956.  
  957. # Return the "Math Environments" submenu:
  958. set "menu::proc(Math Environments)" TeX::mp::mathEnvs
  959. set "menu::otherflags(Math Environments)" {-M TeX -m}
  960. proc TeX::mp::mathEnvs {submenu item} {
  961.     switch $item {
  962.     "array" - "eqnarray\*" - "eqnarray" {
  963.         set func "TeXmathenv $item"
  964.     }
  965.     "equation" - "align" - "split" - "gather" - "multline" {
  966.         set func "mathEnvironment $item"
  967.     }
  968.     {Choose Environment}  {set func chooseEnvironment}
  969.     default {set func $item}
  970.     }
  971.     eval $func
  972. }
  973.  
  974. #--------------------------------------------------------------------------
  975. # Adding a "Theorem" submenu: many thanks to...
  976. #
  977. # Paul Gastin
  978. # LIAFA
  979. # Universite Paris 7
  980. # 2, place Jussieu
  981. # F-75251 Paris Cedex 05
  982. # email : Paul.Gastin@liafa.jussieu.fr
  983. # www : http://www.liafa.jussieu.fr/~gastin
  984. #--------------------------------------------------------------------------
  985.  
  986. # Return the "Theorem" submenu:
  987. set menu::proc(Theorem) TeX::mp::theorem
  988. set menu::otherflags(Theorem) {-M TeX -m}
  989. set menu::items(Theorem) {
  990.     "<E<Sdefinition"
  991.     "<Sdefinition with label"
  992.     "<E<Sremark"
  993.     "<Sremark with label"
  994.     "(-"
  995.     "<E<Slemma"
  996.     "<Slemma with label"
  997.     "<E<Sproposition"
  998.     "<Sproposition with label"
  999.     "<E<Stheorem"
  1000.     "<Stheorem with label"
  1001.     "<E<Scorollary"
  1002.     "<Scorollary with label"
  1003.     "(-"
  1004.     "claim"
  1005.     "<E<Sclaimno"
  1006.     "<Sclaimno with label"
  1007.     "(-"
  1008.     "proof"
  1009.     "proofof"
  1010. }
  1011.  
  1012. proc TeX::mp::theorem {submenu item} {
  1013.     if {$item == "proofof"} {
  1014.     if {[wrapStructure "\\begin\{proofof\}\{••\}" "" \
  1015.       "\\end\{proofof\}\r••"] } {
  1016.         set msgText "selection wrapped, enter ref of proofof environment"
  1017.     } else {
  1018.         set msgText "enter ref of proofof environment, press <tab>, enter the body of proofof environment"
  1019.     }
  1020.     } else {
  1021.     switch $item {
  1022.         {definition with label}  {
  1023.         set envName "definition"
  1024.         set envLabel "def."
  1025.         }
  1026.         {remark with label}  {
  1027.         set envName "remark"
  1028.         set envLabel "rem."
  1029.         }
  1030.         {lemma with label}  {
  1031.         set envName "lemma"
  1032.         set envLabel "lem."
  1033.         }
  1034.         {proposition with label}  {
  1035.         set envName "proposition"
  1036.         set envLabel "prop."
  1037.         }
  1038.         {theorem with label}  {
  1039.         set envName "theorem"
  1040.         set envLabel "thm."
  1041.         }
  1042.         {corollary with label}  {
  1043.         set envName "corollary"
  1044.         set envLabel "cor."
  1045.         }
  1046.         {claimno with label}  {
  1047.         set envName "claimno"
  1048.         set envLabel "claim."
  1049.         }
  1050.         default {
  1051.         set envName  $item
  1052.         set envLabel ""
  1053.         }
  1054.     }
  1055.     if {$envLabel == ""} {
  1056.         append begStruct "\\begin\{" $envName "\}"
  1057.         append endStruct "\\end\{" $envName "\}\r••"
  1058.         if [wrapStructure $begStruct "" $endStruct] {
  1059.         set msgText "selection wrapped"
  1060.         } else {
  1061.         set msgText "enter the body of $envName environment"
  1062.         }
  1063.     } else {
  1064.         append begStruct "\\begin\{" $envName "\}\\label\{" $envLabel "••\}"
  1065.         append endStruct "\\end\{" $envName "\}\r••"
  1066.         if [wrapStructure $begStruct "" $endStruct] {
  1067.         set msgText "selection wrapped, enter the label"
  1068.         } else {
  1069.         set msgText "enter the label, press <tab>, enter the body of $envName environment"
  1070.         }
  1071.     }
  1072.     }
  1073.     message $msgText
  1074. }
  1075.  
  1076. # Return the "Formulas" submenu:
  1077. set menu::proc(Formulas) TeX::mp::formulas
  1078. set menu::otherflags(Formulas) {-M TeX -m}
  1079. set menu::items(Formulas) {
  1080.     "subscript"
  1081.     "superscript"
  1082.     "(-"
  1083.     "<B<O/Ffrac"
  1084.     {<B<O/Rsqrt}
  1085.     {nth root}
  1086.     "(-"
  1087.     {<B<O/1one parameter…}
  1088.     {<B<O/2two parameters…}
  1089. }
  1090. proc TeX::mp::formulas {submenu item} {
  1091.     switch $item {
  1092.     {frac}  {set func "fraction"}
  1093.     {sqrt}  {set func "squareRoot"}
  1094.     {nth root}  {set func "nthRoot"}
  1095.     {one parameter}  {set func "oneParameter"}
  1096.     {two parameters}  {set func "twoParameters"}
  1097.     default {set func $item}
  1098.     }
  1099.     eval $func
  1100. }
  1101.  
  1102. proc TeX::mp::greek {submenu item} {
  1103.     checkMathMode $item 1; insertObject "\\$item"
  1104. }
  1105.  
  1106. # Return the "Greek" submenu:
  1107. set menu::proc(Greek) TeX::mp::greek
  1108. set menu::otherflags(Greek) {-M TeX -m}
  1109. set menu::items(Greek) {
  1110.     "alpha"
  1111.     "beta"
  1112.     "<SGamma"
  1113.     "<Sgamma"
  1114.     "<E<SDelta"
  1115.     "<Sdelta"
  1116.     "epsilon"
  1117.     "zeta"
  1118.     "eta"
  1119.     "<STheta"
  1120.     "<Stheta"
  1121.     "iota"
  1122.     "kappa"
  1123.     "<SLambda"
  1124.     "<Slambda"
  1125.     "mu"
  1126.     "nu"
  1127.     "<SXi"
  1128.     "<Sxi"
  1129.     "omicron"
  1130.     "<SPi"
  1131.     "<Spi"
  1132.     "rho"
  1133.     "<SSigma"
  1134.     "<Ssigma"
  1135.     "tau"
  1136.     "<SUpsilon"
  1137.     "<Supsilon"
  1138.     "<E<SPhi"
  1139.     "<Sphi"
  1140.     "chi"
  1141.     "<SPsi"
  1142.     "<Spsi"
  1143.     "<E<SOmega"
  1144.     "<Somega"
  1145.     "(-"
  1146.     "varepsilon"
  1147.     "vartheta"
  1148.     "varpi"
  1149.     "varrho"
  1150.     "varsigma"
  1151.     "varphi"
  1152. }
  1153.  
  1154. proc TeX::mp::binaryOperators {submenu item} {
  1155.     regsub "!." $item "" item
  1156.     if [regexp {[lr]hd$} $item] {
  1157.     if {![TeX::RequirePackage latexsym]} {return}
  1158.     }
  1159.     checkMathMode $item 1; insertObject "\\$item"
  1160. }
  1161.  
  1162. # Return the "Binary Operators" submenu:
  1163. set "menu::proc(Binary Operators)" TeX::mp::binaryOperators
  1164. set "menu::otherflags(Binary Operators)" {-M TeX -m}
  1165. set "menu::items(Binary Operators)" {
  1166.     "/+<I<U!±pm"
  1167.     "mp"
  1168.     "times"
  1169.     "!÷div"
  1170.     "ast"
  1171.     "star"
  1172.     "circ"
  1173.     "bullet"
  1174.     "cdot"
  1175.     "cap"
  1176.     "cup"
  1177.     "uplus"
  1178.     "sqcap"
  1179.     "sqcup"
  1180.     "vee"
  1181.     "wedge"
  1182.     "setminus"
  1183.     "(-"
  1184.     "diamond"
  1185.     "bigtriangleup"
  1186.     "bigtriangledown"
  1187.     "triangleleft"
  1188.     "triangleright"
  1189.     "lhd"
  1190.     "rhd"
  1191.     "unlhd"
  1192.     "unrhd"
  1193.     "(-"
  1194.     "oplus"
  1195.     "ominus"
  1196.     "otimes"
  1197.     "oslash"
  1198.     "odot"
  1199.     "(-"
  1200.     "bigcirc"
  1201.     "dagger"
  1202.     "ddagger"
  1203.     "amalg"
  1204.     "wr"
  1205. }
  1206.  
  1207. # Return the "Relations" submenu:
  1208. set menu::proc(Relations) TeX::mp::relations
  1209. set menu::otherflags(Relations) {-M TeX -m}
  1210. set menu::items(Relations) {
  1211.     "<S!≥geq"
  1212.     "<S!≤leq"
  1213.     "<E<Ssucc"
  1214.     "<Sprec"
  1215.     "<E<Ssucceq"
  1216.     "<Spreceq"
  1217.     "<E<S!»gg"
  1218.     "<S!«ll"
  1219.     "<E<Ssupset"
  1220.     "<Ssubset"
  1221.     "<E<Ssupseteq"
  1222.     "<Ssubseteq"
  1223.     "<E<Ssqsupset"
  1224.     "<Ssqsubset"
  1225.     "<E<Ssqsupseteq"
  1226.     "<Ssqsubseteq"
  1227.     "<E<Sni"
  1228.     "<Sin"
  1229.     "<E<Sdashv"
  1230.     "<Svdash"
  1231.     "(-"
  1232.     "equiv"
  1233.     "sim"
  1234.     "simeq"
  1235.     "asymp"
  1236.     "!≈approx"
  1237.     "cong"
  1238.     "/=<I!≠neq"
  1239.     "doteq"
  1240.     "propto"
  1241.     "(-"
  1242.     "models"
  1243.     "perp"
  1244.     "mid"
  1245.     "parallel"
  1246.     "bowtie"
  1247.     "join"
  1248.     "smile"
  1249.     "frown"
  1250. }
  1251. proc TeX::mp::relations {submenu item} {
  1252.     # workaround alpha menu bug
  1253.     regsub "!." $item "" item
  1254.     if {[lsearch -exact "join sqsubset sqsupset" $item] != -1} {
  1255.     if {![TeX::RequirePackage latexsym]} {return}
  1256.     }
  1257.     checkMathMode $item 1; insertObject "\\$item"
  1258. }
  1259.  
  1260. # Return the "Arrows" submenu:
  1261. set menu::otherflags(Arrows) {-M TeX -m}
  1262. set menu::proc(Arrows) TeX::mp::arrows
  1263. set menu::items(Arrows) {
  1264.     "<SLeftarrow"
  1265.     "<Sleftarrow"
  1266.     "<E<SRightarrow"
  1267.     "<Srightarrow"
  1268.     "<E<SLeftrightarrow"
  1269.     "<Sleftrightarrow"
  1270.     "<E<SLongleftarrow"
  1271.     "<Slongleftarrow"
  1272.     "<E<SLongrightarrow"
  1273.     "<Slongrightarrow"
  1274.     "<E<SLongleftrightarrow"
  1275.     "<Slongleftrightarrow"
  1276.     "(-"
  1277.     "<SUparrow"
  1278.     "<Suparrow"
  1279.     "<E<SDownarrow"
  1280.     "<Sdownarrow"
  1281.     "<E<SUpdownarrow"
  1282.     "<Supdownarrow"
  1283.     "(-"
  1284.     "mapsto"
  1285.     "longmapsto"
  1286.     "leadsto"
  1287.     "(-"
  1288.     "leftharpoonup"
  1289.     "rightharpoonup"
  1290.     "leftharpoondown"
  1291.     "rightharpoondown"
  1292.     "rightleftharpoons"
  1293.     "hookleftarrow"
  1294.     "hookrightarrow"
  1295.     "nearrow"
  1296.     "searrow"
  1297.     "swarrow"
  1298.     "nwarrow"
  1299. }
  1300.  
  1301. proc TeX::mp::arrows {submenu item} {
  1302.     checkMathMode $item 1; insertObject "\\$item"
  1303. }
  1304.  
  1305. # Return the "Dots" submenu:
  1306. set menu::proc(Dots) TeX::mp::generalMath
  1307. set menu::otherflags(Dots) {-M TeX -m}
  1308. set menu::items(Dots) {
  1309.     "bullet"
  1310.     "cdot"
  1311.     "(-"
  1312.     "ldots"
  1313.     "cdots"
  1314.     "vdots"
  1315.     "ddots"
  1316. }
  1317.  
  1318. # Return the "Symbols" submenu:
  1319. set menu::proc(Symbols) TeX::mp::generalMath
  1320. set menu::otherflags(Symbols) {-M TeX -m}
  1321. set menu::items(Symbols) {
  1322.     "aleph"
  1323.     "hbar"
  1324.     "imath"
  1325.     "jmath"
  1326.     "ell"
  1327.     "wp"
  1328.     "Re"
  1329.     "Im"
  1330.     "mho"
  1331.     "(-"
  1332.     "angle"
  1333.     "backslash"
  1334.     "bot"
  1335.     "/0<Iemptyset"
  1336.     "exists"
  1337.     "forall"
  1338.     "!∞infty"
  1339.     "nabla"
  1340.     "!¬neg"
  1341.     "!∂partial"
  1342.     "prime"
  1343.     "!√surd"
  1344.     "top"
  1345.     "(-"
  1346.     "Box"
  1347.     "Diamond"
  1348.     "triangle"
  1349.     "clubsuit"
  1350.     "diamondsuit"
  1351.     "heartsuit"
  1352.     "spadesuit"
  1353.     "(-"
  1354.     "flat"
  1355.     "natural"
  1356.     "sharp"
  1357. }
  1358.  
  1359. proc TeX::mp::generalMath {submenu item} {
  1360.     if {[lsearch -exact "mho Box Diamond" $item] != -1} {
  1361.     if {![TeX::RequirePackage latexsym]} {return}
  1362.     }
  1363.     switch $item {
  1364.     "lim" - "inf" - "liminf" - "limsup" - "max" - "min" - "sup" {
  1365.         checkMathMode $item 1
  1366.         if {[elec::Wrap "\\${item}_{" "}••"]} {
  1367.         message "limit set"
  1368.         } else {
  1369.         message "enter limit"
  1370.         }
  1371.     }
  1372.     "pmod" {
  1373.         checkMathMode "pmod" 1
  1374.         if {[elec::Wrap "\\pmod{" "}••"]} {
  1375.         message "parenthesized mod set"
  1376.         } else {
  1377.         message "enter formula"
  1378.         }
  1379.     }
  1380.     "ldots" {insertObject "\\ldots"}
  1381.     default {
  1382.         checkMathMode $item 1; insertObject "\\$item"
  1383.     }
  1384.     }
  1385. }
  1386.  
  1387. # Return the "Functions" submenu:
  1388. set menu::proc(Functions) TeX::mp::generalMath
  1389. set menu::otherflags(Functions) {-M TeX -m}
  1390. set menu::items(Functions) {
  1391.     "arccos"
  1392.     "arcsin"
  1393.     "arctan"
  1394.     "arg"
  1395.     "cos"
  1396.     "cosh"
  1397.     "cot"
  1398.     "coth"
  1399.     "csc"
  1400.     "deg"
  1401.     "det"
  1402.     "dim"
  1403.     "exp"
  1404.     "gcd"
  1405.     "hom"
  1406.     "inf"
  1407.     "ker"
  1408.     "lg"
  1409.     "<B<O/Llim"
  1410.     "liminf"
  1411.     "limsup"
  1412.     "ln"
  1413.     "log"
  1414.     "max"
  1415.     "min"
  1416.     "Pr"
  1417.     "sec"
  1418.     "sin"
  1419.     "sinh"
  1420.     "sup"
  1421.     "tan"
  1422.     "tanh"
  1423.     "(-"
  1424.     "bmod"
  1425.     "pmod"
  1426. }
  1427.  
  1428. # Return the "Large Operators" submenu:
  1429. set "menu::otherflags(Large Operators)" {-M TeX -m}
  1430. set "menu::items(Large Operators)"  {
  1431.     "<B<O/Ssum"
  1432.     "<B<O/Pprod"
  1433.     "coprod"
  1434.     "<B<O/Iint"
  1435.     "oint"
  1436.     "(-"
  1437.     "bigcup"
  1438.     "bigcap"
  1439.     "bigsqcup"
  1440.     "bigvee"
  1441.     "bigwedge"
  1442.     "bigodot"
  1443.     "bigotimes"
  1444.     "bigoplus"
  1445.     "biguplus"
  1446. }
  1447.  
  1448. # Return the "Delimiters" submenu:
  1449. set menu::proc(Delimiters) TeX::mp::delimiters
  1450. set menu::otherflags(Delimiters) {-M TeX -m}
  1451. set menu::items(Delimiters) {
  1452.     "parentheses"
  1453.     "brackets"
  1454.     "braces"
  1455.     {vertical bars}
  1456.     {other delims…}
  1457.     "(-"
  1458.     {half-open interval}
  1459.     {half-closed interval}
  1460.     "(-"
  1461.     {<Smulti-line big parentheses}
  1462.     {<Sbig parentheses}
  1463.     {<E<Smulti-line big brackets}
  1464.     {<Sbig brackets}
  1465.     {<E<Smulti-line big braces}
  1466.     {<Sbig braces}
  1467.     {<E<Smulti-line big vertical bars}
  1468.     {<Sbig vertical bars}
  1469.     {<E<Sother multi-line big delims…}
  1470.     {<Sother big delims…}
  1471.     "(-"
  1472.     {<Smulti-line big left brace}
  1473.     {<Sbig left brace}
  1474.     {<E<Sother multi-line mixed big delims…}
  1475.     {<Sother mixed big delims…}
  1476. }
  1477. proc TeX::mp::delimiters {submenu item} {
  1478.     switch $item {
  1479.     {vertical bars}  {set func "absoluteValue"}
  1480.     {other delims}  {set func "otherDelims"}
  1481.     {half-open interval}  {set func "half-openInterval"}
  1482.     {half-closed interval}  {set func "half-closedInterval"}
  1483.     {big parentheses}  {set func "bigParens"}
  1484.     {multi-line big parentheses}  {set func "multiBigParens"}
  1485.     {big brackets}  {set func "bigBrackets"}
  1486.     {multi-line big brackets}  {set func "multiBigBrackets"}
  1487.     {big braces}  {set func "bigBraces"}
  1488.     {multi-line big braces}  {set func "multiBigBraces"}
  1489.     {big vertical bars}  {set func "bigAbsValue"}
  1490.     {multi-line big vertical bars}  {set func "multiBigAbsValue"}
  1491.     {other big delims}  {set func "otherBigDelims"}
  1492.     {other multi-line big delims}  {set func "otherMultiBigDelims"}
  1493.     {big left brace}  {set func "bigLeftBrace"}
  1494.     {multi-line big left brace}  {set func "multiBigLeftBrace"}
  1495.     {other mixed big delims}  {set func "otherMixedBigDelims"}
  1496.     {other multi-line mixed big delims}  {set func "otherMultiMixedBigDelims"}
  1497.     default {set func $item}
  1498.     }
  1499.     eval $func
  1500. }
  1501.  
  1502. # Return the "Math Accents" submenu:
  1503. set "menu::otherflags(Math Accents)" {-M TeX -m}
  1504. set "menu::items(Math Accents)"  {
  1505.     "<B<O/Aacute"
  1506.     "<B<O/Bbar"
  1507.     "breve"
  1508.     "<B<O/Ccheck"
  1509.     "<B<O/Ddot"
  1510.     "ddot"
  1511.     "<B<O/Ggrave"
  1512.     "<B<O/Hhat"
  1513.     "<B<O/Ttilde"
  1514.     "<B<O/Vvec"
  1515.     "(-"
  1516.     "widehat"
  1517.     "widetilde"
  1518.     "(-"
  1519.     "imath"
  1520.     "jmath"
  1521. }
  1522.  
  1523. # Return the "Grouping" submenu:
  1524. set "menu::otherflags(Grouping)" {-M TeX -m}
  1525. set "menu::items(Grouping)"  {
  1526.     "<B<O/Uunderline"
  1527.     "<B<O/Ooverline"
  1528.     "<B<I<O/Uunderbrace"
  1529.     "<B<I<O/Ooverbrace"
  1530.     "(-"
  1531.     "overrightarrow"
  1532.     "overleftarrow"
  1533.     "(-"
  1534.     "stackrel"
  1535. }
  1536.  
  1537. # Return the "Spacing" submenu:
  1538. set menu::proc(Spacing) TeX::mp::spacing
  1539. set menu::otherflags(Spacing) {-M TeX -m}
  1540. set menu::items(Spacing) {
  1541.     {neg thin}
  1542.     "thin"
  1543.     "medium"
  1544.     "thick"
  1545.     "(-"
  1546.     "quad"
  1547.     "qquad"
  1548.     "(-"
  1549.     "hspace"
  1550.     "vspace"
  1551.     "(-"
  1552.     "hfill"
  1553.     "vfill"
  1554.     "(-"
  1555.     "smallskip"
  1556.     "medskip"
  1557.     "bigskip"
  1558. }
  1559. proc TeX::mp::spacing {submenu item} {
  1560.     switch $item {
  1561.     {neg thin}  {set func "negThin"}
  1562.     default {set func $item}
  1563.     }
  1564.     eval $func
  1565. }
  1566.  
  1567.  
  1568.  
  1569.  
  1570.  
  1571.